home *** CD-ROM | disk | FTP | other *** search
/ The Utilities Experience / The Utilities Experience - Volume 1.iso / software / demos / a-d / amms / mbbatch / com / add_port next >
Encoding:
Text File  |  1995-06-29  |  2.1 KB  |  115 lines
  1. ;
  2. ;       ADD PORT : AMMS-Script zum Einrichten eines neuen Ports
  3. ;
  4. ;       VERSION : $VER: 1.04 / 29.06.1995
  5. ;
  6. ;       Mit diesem Script werden alle noetigen Verzeichnisse & Files fuer
  7. ;       einen neuen Port angelegt.
  8. ;
  9. ;
  10. ;       Das Script sollte so eingebunden werden, dass es ueber Level und
  11. ;       Flags auf die folgende Befehle zugreifen kann :
  12. ;
  13. ;    CHECK FILE
  14. ;    ECHO
  15. ;    EDIT PORT
  16. ;    EOD
  17. ;    EXTERN
  18. ;    GOSUB
  19. ;    GOTO
  20. ;    IF
  21. ;    INPUT
  22. ;    PARSE
  23. ;
  24. ;    Folgende Amiga-Dos-Befehle werden benutzt :
  25. ;
  26. ;    COPY
  27. ;    DIR
  28. ;    ECHO
  29. ;    MAKEDIR
  30. ;
  31.  
  32. ; Parameter auswerten
  33.  
  34.  _parse "ADD PORT" P0 N/Port PORT 
  35.  
  36. ; Pruefe, ob Port schon existiert
  37.  
  38.  _check file "amms:startup/'PORT'" NEW_PORT    ; wenn nicht vorh., verzw.
  39.  _echo "^JDer Port existiert bereits !^J"    ; Fehlermeldung ausgeben
  40.  _goto END                    ; -> Ende
  41.  
  42. ;
  43. ;       Verzeichnisse einrichten
  44. ;
  45. NEW_PORT:
  46.  NAME="files:uploads/'PORT'"            ; Dir fuer Uploads erzeugen
  47.  _gosub MAKE_DIR
  48.  NAME="mbmsg:point/'PORT'"            ; Dir fuer Point erzeugen
  49.  _gosub MAKE_DIR
  50.  
  51. ;
  52. ;       Startup-File einrichten
  53. ;
  54.  
  55.  NAME="amms:startup/'PORT'"
  56.  STRING="run port *""'PORT'*""*n"
  57.  _gosub MAKE_FILE
  58.  
  59. ;
  60. ;       Settings-File einrichten
  61. ;
  62. PREFLOOP:
  63.  _echo "^JVorhandene Settings als Voreinstellung :^J"
  64.  _extern dir mbdevs:default/~(#?.txt)
  65.  _input PREFNAME "^JFilename : "
  66.  _if PREFNAME == "" then goto PREFLOOP
  67.  _check file "mbdevs:default/'PREFNAME'" PREFLOOP
  68.  
  69.  _check file "mbdevs:default/'PREFNAME'.txt" COPYSET
  70.  _disk text "mbdevs:default/'PREFNAME'.txt"
  71.  
  72. COPYSET:
  73.  NAME="mbdevs:'PORT'.set"
  74.  STRING=""
  75.  _gosub MAKE_FILE
  76.  
  77.  _extern/q copy "mbdevs:default/'PREFNAME'" "mbdevs:'PORT'.set"
  78.  
  79.  _edit port "'PORT'"
  80.  
  81.  _echo "^JFertig !^J"
  82.  
  83. ;
  84. ;       Ende
  85. ;
  86. END:
  87.  _eod
  88.  
  89. ;
  90. ;       Unterroutine zum Einrichten eines Verzeichniss
  91. ;
  92. MAKE_DIR:
  93.  _echo/nolf "Erzeuge Directory 'NAME' ... "
  94.  _extern/q makedir "'NAME'"
  95.  _goto CHECK
  96.  
  97. ;
  98. ;       Unterroutine zum Erzeugen eines Files
  99. ;
  100. MAKE_FILE:
  101.  _echo/nolf "Erzeuge File 'NAME' ... "
  102.  _extern/q echo >"'NAME'" "'STRING'"
  103. ; _goto CHECK
  104.  
  105. ;
  106. ;    Unterroutine zum Existenzpruefen eines Files/Verzeichnisses
  107. ;
  108. CHECK:
  109.  _check file "'NAME'" CHECK_ERR
  110.  _echo "Ok !"
  111.  _return
  112. CHECK_ERR:
  113.  _echo "Fehler !"
  114.  _return
  115.